perm filename SHFX.F4[MSS,LCS] blob sn#258312 filedate 1977-01-13 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		DIMENSION JA(5)
C00003 ENDMK
CāŠ—;
	DIMENSION JA(5)
	DATA KK/128/,LL/"377777777777/,JJ/"2000000000/
	DATA MM/"774000000000/,JA/'A','B','C','D','E'/
9	FORMAT(5A1)
	ACCEPT 9,JA
	IA=0
	DO 10 K=5,1,-1
	IA=IA .OR. (JA(K) .AND. MM)
	TYPE 6,IA
	IF (K-1) 20,20,17
17	IF (IA) 12,13,13
12	IA = (( IA .AND. LL)/KK) .OR. JJ
	GO TO 10
13	IA = IA / KK
10	CONTINUE
20	TYPE 6,IA
6	FORMAT(1XA5)
	END